home *** CD-ROM | disk | FTP | other *** search
/ Educational Software Cooperative 4 / Educational Software Cooperative 4.iso / spanh16 / install.fil < prev    next >
Text File  |  1995-11-15  |  4KB  |  196 lines
  1. '' Install Script for SPANISH HELPER 9/19/94
  2. BACKGROUND 63
  3. LANGUAGE ENGLISH
  4. BORDER 1
  5. TELESCOPE OFF
  6. WINOPEN 18 2 95
  7. "Pik A Program & SDA "
  8. ""
  9. "present"
  10. ""
  11. "SPANISH HELPER"
  12. ""
  13. ""
  14. WINUPDATE +11 +5 222
  15. "SPANISH HELPER "
  16. PAUSE 100
  17. TELESCOPE ON
  18. SHADOW ON
  19. :which_drive
  20. SPACE 600
  21. DRIVE C 0 12 31 15 32 14 79
  22. PATH \SPANISH 0 12 31 15 32 14 79
  23. exist SPAN.1
  24. JUMP.YES DOES_EXIST1
  25. JUMP.NO NOT_EXIST1
  26. :NOT_EXIST1
  27. WINOPEN 0 50 79
  28. ""
  29. " The file Span.1 is not on the  "
  30. " current installation disk"
  31. ""
  32. " Do you wish to continue with the "
  33. " current installation (Y/N)? "
  34. ASK 49 31
  35. pause 250
  36. JUMP.NO STOP_INSTALL
  37. WINCLOSE
  38. DISK 0 Span.1 0 0 31
  39. :DOES_EXIST1
  40. unpack Span.1 12 10 31 32 14 79
  41. JUMP.FAIL INSTALL_FAILURE
  42. WINOPEN 0 12 79
  43. ""
  44. "Spanish Helper has now been installed on your hard drive"
  45. ""
  46. "                     To run the program..."
  47. "Change to the drive and directory you have chosen in this setup (usually"
  48. "C:\SPANISH)."
  49. "         Type "GO" and then hit the enter or Return key   "
  50. "   We hope you enjoy learning with Spanish Helper so much that you'll send"
  51. "   the registration form to get the intermediate and advanced levels!"
  52. "                Press the [Enter] key to continue."
  53. ""
  54. ""
  55. WINUPDATE +30 +3 30
  56. "~1~2"
  57. WINUPDATE +30 +12 27
  58. "THANK YOU"
  59. WAIT +36 +12
  60. WINCLOSE
  61. WINOPEN 0 12 31
  62. "Are you using this program outside of Europe?"
  63. ""
  64. WINUPDATE +31 +2 30
  65. "(Y or N)"
  66. ASK +39 +2
  67. WINCLOSE
  68. JUMP.NO NOT_USA
  69. WINOPEN 0 12 31
  70. "Would you like to SEE the order form for Spanish Helper?"
  71. ""
  72. WINUPDATE +31 +2 30
  73. "(Y or N)"
  74. ASK +39 +2
  75. WINCLOSE
  76. JUMP.NO PRINT_INSTALL.TXT
  77. VIEW ~1~2\ordUSA.txt 79 31
  78. :PRINT_INSTALL.TXT
  79. WINOPEN 0 12 31
  80. "Would you like to PRINT the order form for Spanish Helper?"
  81. ""
  82. WINUPDATE +31 +2 30
  83. "(Y or N)"
  84. ASK +39 +2
  85. WINCLOSE
  86. JUMP.NO EXIT
  87. WINOPEN 0 0 31
  88. ""
  89. "  Printing the order form ...  "
  90. ""
  91. PRINT ~1~2\ordusa.txt
  92. WINCLOSE
  93. JUMP.FAIL PRINTER_ERROR
  94. JUMP EXIT
  95. :NOT_USA
  96. WINOPEN 0 12 31
  97. "Would you like to SEE the European order form for Spanish Helper?"
  98. ""
  99. WINUPDATE +31 +2 30
  100. "(Y or N)"
  101. ASK +39 +2
  102. WINCLOSE
  103. JUMP.NO PRINT_INSTALL.TXT
  104. VIEW ~1~2\ordeuro.txt 79 31
  105. :PRINT_INSTALL.TXT
  106. WINOPEN 0 12 31
  107. "Would you like to PRINT the European order form for Spanish Helper?"
  108. ""
  109. WINUPDATE +31 +2 30
  110. "(Y or N)"
  111. ASK +39 +2
  112. WINCLOSE
  113. JUMP.NO EXIT
  114. WINOPEN 0 0 31
  115. ""
  116. "  Printing the order form ...  "
  117. ""
  118. PRINT ~1~2\ordeuro.txt
  119. WINCLOSE
  120. JUMP.FAIL PRINTER_ERROR
  121. JUMP EXIT
  122. :PRINTER_ERROR
  123. WINOPEN 0 12 79
  124. "Your printer is not responding.  Possible problems:"
  125. "   -- Printer is not turned on"
  126. "   -- Printer is out of paper"
  127. "   -- Printer is not attached to LPT1 (parallel port 1)"
  128. ""
  129. "Do you want to try to print again  (Y or N)?"
  130. ASK 57 18
  131. WINCLOSE
  132. JUMP.YES PRINT_INSTALL.TXT
  133. :EXIT
  134. WINOPEN 0 12 31
  135. "                 Thank you for using "
  136. ""
  137. "                   Spanish Helper"
  138. ""
  139. "You have a fully working shareware evaluation copy.  We hope"
  140. "    that you will be fluent in Spanish in no time!"
  141. ""
  142. "               Please register your shareware!"
  143. ""
  144. WINUPDATE +17 +8 30
  145. "Please register your shareware!"
  146. WINUPDATE +12 +11 31
  147. "┤ Press the [Enter] key to continue ├"
  148. WINUPDATE +24 +11 30
  149. "[Enter]"
  150. WAIT +47 +11
  151. WINCLOSE
  152. shell
  153. "~1"
  154. "cd ~2"
  155. BORDER 2
  156. WINOPEN 0 12 47
  157. "  If you're not sure you have the latest shareware copy of"
  158. "Spanish Helper, call the Software Creations BBS:"
  159. "              the home board of Pik A Program"
  160. ""
  161. ""
  162. ""
  163. ""
  164. ""
  165. ""
  166. "        Press the [Enter] key to run Spanish Helper."
  167. WINUPDATE +27 +2 160
  168. "Software Creations BBS"
  169. WINUPDATE +13 +4 47
  170. "More lines all the time to Serve You 24 Hours per Day!"
  171. WINUPDATE +14 +5 111                         ' you can winupdate more than
  172. "(508) 365-2359        2400 baud"            ' one line at a time
  173. "(508) 368-4137        2400-14.4K USR"
  174. "(508) 368-7036        2400-14.4K V.32"
  175. WAIT +36 +10                                  ' wait for the enter key
  176. RUN ~1\~2\go
  177. END            ' exit the system normally
  178. :INSTALL_FAILURE
  179. WINOPEN 0 12 79
  180. "THE INSTALLATION PROGRAM FAILED PRIOR TO COMPLETION"
  181. ""
  182. "Possible reasons:"
  183. "   -- The floppy disk was removed prior to completion."
  184. "   -- The floppy disk was damaged during shipping."
  185. "   -- Your disk drive is out of alignment."
  186. "   -- The files were corrupted some other way."
  187. ""
  188. WINCLOSE
  189. WINOPEN 0 12 31
  190. ""
  191. "      Press [Enter] to Quit."
  192. WAIT 47 15
  193. :STOP_INSTALL
  194. winclose
  195. END
  196.